10 for A=-10to 10
20 B=ABS(A)
30 print A,B
40 next A
50 if KP="1" goto 70
60 STOP
70 ...
:return ;run 